#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

print "Say your name: ";
my $name = <STDIN>;

print "Hello, $name! How are you?\n";
